home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 11 / PC World Interactive 11.iso / share / multimed / MAINACT / DATA1.CAB / Script_Files / projinfo.rex < prev    next >
OS/2 REXX Batch file  |  1998-05-04  |  2KB  |  41 lines
  1. /**************************************************************
  2.  *                                                            *
  3.  *                   MainActor Rexx Script                    *
  4.  *                                                            *
  5.  *  Returns information about the currently selected project  *
  6.  *                                                            *
  7.  *  Last modified: 09/04/97, Written by: Markus Moenig        *
  8.  *                                                            *
  9.  **************************************************************/
  10.  
  11.   IF GetGlobalInfo("LOADEDPROJECTS")= "0" THEN DO     /* Check if there are */
  12.    BEGIN                                              /* any projects loaded */
  13.     say "No project loaded! Trying to load project..."/* No: try to load one */
  14.     rc=LoadProject("")                                /* If succeeded, rc = 0 */
  15.     IF rc <> "0" THEN DO
  16.       say "No project loaded! Exiting ..."            /* Failed, exiting ... */
  17.       exit
  18.     END 
  19.    END
  20.  
  21.   SetInfoText("Printing project information ...")     /* Set a descriptive info text */
  22.  
  23.                     /* Use the GetProjectInfo() command to list the project info */
  24.   say "General Information:"
  25.   say "* Project Name: " GetProjectInfo("NAME")
  26.   IF GetProjectInfo("TYPE") <> "Picture List" THEN   /* If project is no picture list */
  27.     say "* Full Name: " GetProjectInfo("FULLNAME")     /* print complete name */
  28.   say "* Size: " GetProjectInfo("SIZE") " bytes"
  29.   say "* Type: " GetProjectInfo("TYPE")", Format: " GetProjectInfo("FORMAT")
  30.   say "* Width: " GetProjectInfo("WIDTH")", Height: " GetProjectInfo("HEIGHT")
  31.   say "* Frames: " GetProjectInfo("FRAMES")
  32.   say "* Timecode: " GetProjectInfo("TIMECODEMODE")
  33.  
  34.   audiomode=GetProjectInfo("AUDIOMODE")              /* Check if project has audio */
  35.   IF audiomode <> NULL THEN DO
  36.     say "Audio Information:"
  37.     say "* Audio Mode: " audiomode                     /* Print audio info */
  38.     say "* Samples per Second: " GetProjectInfo("SAMPLESPERSECOND")
  39.     say "* Bits per Sample: " GetProjectInfo("BITSPERSAMPLE")
  40.   END
  41.